home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / VISUAL_B / H441.ZIP / VXBTEST.ZIP / VYFORM2.FRM (.txt) < prev   
Visual Basic Form  |  1993-05-12  |  5KB  |  150 lines
  1. VYFORM2
  2. Military Aircraft
  3. Form1
  4. ButtonExit
  5. E&xit
  6. PicBox
  7.     BrowseBox
  8. BrowseBox_Change
  9.     FirstTime
  10. BrowseBox_KeyDown-
  11. KeyCode
  12. Shift
  13. RecNum
  14. vxCtlBrowseMsg6
  15.     vxCtlHwnd
  16.     BrowseBox
  17. VXB_GETCURRENTREC
  18. vxbtut0
  19. StatBar
  20. Text 
  21. ButtonAdd_ClickN
  22. ButtonDelete_Click
  23. Command1_Click
  24. ButtonExit_Click%
  25. BrowseBox_KeyPress
  26. KeyAscii
  27. ButtonEdit_Clicks
  28. VYFORM2<
  29.     Form_LoadD
  30. BrowseRunningU
  31. OpenFileE
  32. Enabled
  33. ExitMenu
  34. PackFile
  35. ButtonAgaing
  36. vxSelectDbf
  37. DbfArea
  38. vxSelectNtxU
  39. NtxArea1
  40. NtxArea
  41. vxBrowseArray
  42. vxTableDeclareq
  43. VX_RED
  44. vxTableField
  45. VX_EXPR
  46. VX_FIELD
  47. vxBrowseCase
  48. VX_UPPER
  49. vxBrowseSetup
  50. VX_SEMIBOLD
  51. MousePointer)
  52. AirPicsDbf
  53. vxUseDbf
  54. vxToph
  55. vxIsPictureS
  56. ftitle
  57. vxFieldTrim
  58. fname
  59. magic
  60. vxPictureImport
  61. vxClose
  62. Form_Paint
  63. vxFormFrame
  64. vxbtut1
  65. vxCtlStyle
  66.     VX_RECESS
  67. MemoBox
  68. vxCtlBrowse
  69. PicBox
  70. vxPictureRead
  71. Picture3
  72.     Clipboardd
  73. Form_Resize
  74. Form_Unload
  75. Cancel8
  76.     VXB_CLOSE
  77. vxCloseAll
  78. vxWindowDereg
  79. Caption
  80. PicBox_Click
  81. PicBox_Resize
  82. vxBottom
  83. vxAppendBlank
  84.  static switch set to TRUE in form
  85.  load procedure so we know when this
  86.  form is first loaded 
  87. BrowseBox_KeyDown
  88.  whenever a record is highlighted, this,
  89.  proc receives a middle button codet
  90.  from the ctlBrowse so we can dynamically
  91.  display the picture in the memo field
  92.  middle button?u
  93. Title
  94.  If you wish to use a static size window
  95.  (i.e., autoresize=FALSE), use the method
  96.  below to display the bitmap and deleted
  97.  the memo window and field references from
  98.  the call to vxCtlBrowse
  99.    If vxPictureRead(VYFORM2.hWnd, "pic") Theno
  100.  ' the "8" param below is CF_DIB
  101.  PicBox.Picture = Clipboard.GetData(8)
  102.  ' If you want to leave the picture in
  103.  ' the clipboard, comment out line below
  104.  Clipboard.Clear
  105.    Elseb
  106.  If Not vxIsPicture() Then
  107.      PicBox.Picture = LoadPicture())
  108.  End If.
  109.    End If.
  110. BrowseBox_KeyPress
  111.  NOTE: YOU MUST ALWAYS TRAP THE ENTER KEY
  112.  AND CHANGE THE KEYASCII CODE TO
  113.  A ZERO WHEN USING VXCTLBROWSE
  114.  EVEN IF YOU DON'T USE ITR
  115.  if ESC key is received, then emulate-
  116.  exit button press
  117. ButtonExit_Click
  118. Form_Load
  119.  set FirstTime switch on for Paint
  120.  register the default database as the master
  121. \vb\vxbtest\airpics.dbf
  122.  first time load pictures,
  123.  the name of the bmp picture file is the
  124.  same as the string in field "title" so-
  125.  we can import the bmps into the memo file
  126.  by cocatenating ".bmp" to the trimmed field )
  127.  contentse
  128. c:\magic\bmp\
  129. Import Failed
  130. \vb\vxbtest\airpics.dbf
  131.  set up the browse
  132.  If the typeface is too large on your display,
  133.  CHANGE the parameter following "Helv" above to
  134.  a smaller numbere
  135.  change the mouse pointer in the browse box-
  136.  from an I-Beam to an arrow to stop any flicker
  137. Form_Paint
  138.  register the database with this window
  139.  make the form 3-d
  140.  initiate the browse the first time only
  141.  on initial paint of the browse, middle button
  142.  keydown is not sent to browse box so we wantn
  143.  to do our dynamic display here as well as
  144.  from a keydown in the browse box code
  145. Form_Resize
  146. Form_Unload
  147.  close the browse
  148.  close all the files
  149.  deregister the window and release memoryd
  150.